(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     65231,       2282]
NotebookOptionsPosition[     50593,       1773]
NotebookOutlinePosition[     58339,       2012]
CellTagsIndexPosition[     58227,       2006]
WindowTitle->Kummer
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"HypergeometricAC\"\>":>
       Documentation`HelpLookup["paclet:FeynCalc/ref/HypergeometricAC"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/Kummer\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/Kummer"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                "http://reference.wolfram.com/language/FeynCalc/ref/Kummer.\
html"], StandardForm]], "Input", TextClipboardType -> "PlainText"]}, Visible -> 
            False]]; SelectionMove[
         DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$177758], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/Kummer", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["Kummer", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       RowBox[{"Kummer", "[", "i", "]"}], "[", "exp", "]"}]], "InlineFormula"],
     " \[LineSeparator]",
     "applies Kummer relation number i (i =1, ... 24, 94,95,96) to all \
Hypergeometric2F1 in exp. i = 94 corresponds to eq. 9.131.2, i = 95 to eq. \
9.132.1 and i = 96 to eq. 9.132.2 in Gradsteyn & Ryzhik."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->671352331],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->1849867123],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "2", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[1]:=",
 CellID->318247247],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c","z"},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{375, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "3", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[2]:=",
 CellID->1547382498],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",RowBox[{"-", 
        FractionBox["z", 
         RowBox[{"1", "-", "z"}]]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{354, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "4", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[3]:=",
 CellID->87779889],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "b"}]], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",RowBox[{"-", 
        FractionBox["z", 
         RowBox[{"1", "-", "z"}]]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{355, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "6", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[4]:=",
 CellID->196494184],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c",
      RowBox[{"1", "-", "z"}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{386, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", 
    RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "6", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", 
     RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[5]:=",
 CellID->793293677],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a","b",RowBox[{"a", "+", "b", "-", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"1", "-", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"b", "-", "c", "+", "1"}],
      RowBox[{"a", "+", "b", "-", "c", "+", "1"}],RowBox[{"1", "-", "z"}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{557, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[5]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "7", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[6]:=",
 CellID->39664086],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"-", "a"}]], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{342, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[6]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", 
    RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "7", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", 
     RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[7]:=",
 CellID->326626360],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a","b",RowBox[{"a", "+", "b", "-", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"-", "a"}]], " ", 
    TemplateBox[{
     "a",RowBox[{"a", "-", "c", "+", "1"}],
      RowBox[{"a", "+", "b", "-", "c", "+", "1"}],RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{517, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "8", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[8]:=",
 CellID->2096680953],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"-", "b"}]], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{343, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[8]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", 
    RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "8", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", 
     RowBox[{"a", "+", "b", "+", "1", "-", "c"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[9]:=",
 CellID->1606284055],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a","b",RowBox[{"a", "+", "b", "-", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"-", "b"}]], " ", 
    TemplateBox[{
     "b",RowBox[{"b", "-", "c", "+", "1"}],
      RowBox[{"a", "+", "b", "-", "c", "+", "1"}],RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{522, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[9]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "10", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[10]:=",
 CellID->1495083835],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"a", "+", "b", "-", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c",FractionBox[
      "1", "z"]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{468, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[10]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", 
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"a", "+", "1", "-", "b"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "10", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", 
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"a", "+", "1", "-", "b"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[11]:=",
 CellID->2086065203],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a",RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"a", "-", "b", "+", "1"}],
     FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"a", "+", "b", "-", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "b"}],RowBox[{"c", "-", "b"}],
      RowBox[{"a", "-", "b", "+", "1"}],FractionBox["1", "z"]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{405, 78},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "11", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[12]:=",
 CellID->764355789],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", "z"}], "z"]}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], "a"], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{412, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[12]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", 
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"a", "+", "1", "-", "b"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "11", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", 
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"a", "+", "1", "-", "b"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[13]:=",
 CellID->1556461178],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a",RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"a", "-", "b", "+", "1"}],
     FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", "z"}], "z"]}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], "a"], " ", 
    TemplateBox[{
     "a",RowBox[{"c", "-", "b"}],RowBox[{"a", "-", "b", "+", "1"}],
      FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{561, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "12", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[14]:=",
 CellID->487619941],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "b"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"b", "-", "a"}]], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{414, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[14]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", 
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"a", "+", "1", "-", "b"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "12", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", 
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"a", "+", "1", "-", "b"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[15]:=",
 CellID->1099088563],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    "a",RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"a", "-", "b", "+", "1"}],
     FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"1", "-", "c"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "+", "c", "-", "1"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "b"}],RowBox[{"a", "-", "c", "+", "1"}],
      RowBox[{"a", "-", "b", "+", "1"}],FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{424, 78},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[15]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "14", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[16]:=",
 CellID->598392912],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"a", "+", "b", "-", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c",FractionBox[
      "1", "z"]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{468, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[16]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
    RowBox[{"b", "+", "1", "-", "a"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "14", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
     RowBox[{"b", "+", "1", "-", "a"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[17]:=",
 CellID->1367394877],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"b",RowBox[{"b", "-", "c", "+", "1"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "+", "b", "+", "1"}],FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"a", "+", "b", "-", "c"}]], " ", 
    TemplateBox[{RowBox[{"1", "-", "a"}],RowBox[{"c", "-", "a"}],RowBox[{
        RowBox[{"-", "a"}], "+", "b", "+", "1"}],FractionBox["1", "z"]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{412, 78},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[17]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "15", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[18]:=",
 CellID->2076771032],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "b"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], "b"], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{397, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[18]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
    RowBox[{"b", "+", "1", "-", "a"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "15", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
     RowBox[{"b", "+", "1", "-", "a"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[19]:=",
 CellID->860912097],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"b",RowBox[{"b", "-", "c", "+", "1"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "+", "b", "+", "1"}],FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "b"}], "+", "c", "-", "1"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], 
     RowBox[{"b", "-", "c", "+", "1"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "a"}],RowBox[{"b", "-", "c", "+", "1"}],RowBox[{
        RowBox[{"-", "a"}], "+", "b", "+", "1"}],FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{454, 78},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[19]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "16", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[20]:=",
 CellID->1768264658],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], "a"], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{395, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[20]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
    RowBox[{"b", "+", "1", "-", "a"}], ",", 
    RowBox[{"z", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "16", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"b", "+", "1", "-", "c"}], ",", "b", ",", 
     RowBox[{"b", "+", "1", "-", "a"}], ",", 
     RowBox[{"z", "^", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[21]:=",
 CellID->1824141612],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"b",RowBox[{"b", "-", "c", "+", "1"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "+", "b", "+", "1"}],FractionBox["1", "z"]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "b"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "z"}], ")"}], "b"], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],RowBox[{
        RowBox[{"-", "a"}], "+", "b", "+", "1"}],FractionBox["1", 
       RowBox[{"1", "-", "z"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{572, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[21]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"b", "+", "1", "-", "c"}], ",", 
    RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "18", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"b", "+", "1", "-", "c"}], ",", 
     RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[22]:=",
 CellID->748421164],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"b", "-", "c", "+", "1"}],
     RowBox[{"2", "-", "c"}],"z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "a"}],RowBox[{"1", "-", "b"}],RowBox[{"2", "-", "c"}],
      "z"},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{517, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[22]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "18", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[23]:=",
 CellID->1906183256],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c","z"},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{375, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[23]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"b", "+", "1", "-", "c"}], ",", 
    RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "19", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"b", "+", "1", "-", "c"}], ",", 
     RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[24]:=",
 CellID->151044707],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"b", "-", "c", "+", "1"}],
     RowBox[{"2", "-", "c"}],"z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "a"}], "+", "c", "-", "1"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "b"}],RowBox[{"a", "-", "c", "+", "1"}],
      RowBox[{"2", "-", "c"}],FractionBox["z", 
       RowBox[{"z", "-", "1"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{568, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[24]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "19", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[25]:=",
 CellID->1217870653],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",FractionBox["z", 
       RowBox[{"z", "-", "1"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{343, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[25]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"a", "+", "1", "-", "c"}], ",", 
    RowBox[{"b", "+", "1", "-", "c"}], ",", 
    RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "20", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"a", "+", "1", "-", "c"}], ",", 
     RowBox[{"b", "+", "1", "-", "c"}], ",", 
     RowBox[{"2", "-", "c"}], ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[26]:=",
 CellID->1953071601],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{
    RowBox[{"a", "-", "c", "+", "1"}],RowBox[{"b", "-", "c", "+", "1"}],
     RowBox[{"2", "-", "c"}],"z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{
      RowBox[{"-", "b"}], "+", "c", "-", "1"}]], " ", 
    TemplateBox[{
     RowBox[{"1", "-", "a"}],RowBox[{"b", "-", "c", "+", "1"}],
      RowBox[{"2", "-", "c"}],FractionBox["z", 
       RowBox[{"z", "-", "1"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{569, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[26]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "20", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[27]:=",
 CellID->1999495516],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "b"}]], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",FractionBox["z", 
       RowBox[{"z", "-", "1"}]]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{344, 33},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[27]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"c", "-", "a"}], ",", 
    RowBox[{"c", "-", "b"}], ",", 
    RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "22", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"c", "-", "a"}], ",", 
     RowBox[{"c", "-", "b"}], ",", 
     RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[28]:=",
 CellID->834381322],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "-", "b", "+", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"1", "-", "c"}]], " ", 
    TemplateBox[{RowBox[{"1", "-", "a"}],RowBox[{"1", "-", "b"}],RowBox[{
        RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}],
      RowBox[{"1", "-", "z"}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{579, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[28]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "22", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[29]:=",
 CellID->2015364677],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{
      RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
    TemplateBox[{
     RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],"c",
      RowBox[{"1", "-", "z"}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{386, 20},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[29]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"c", "-", "a"}], ",", 
    RowBox[{"c", "-", "b"}], ",", 
    RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "23", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"c", "-", "a"}], ",", 
     RowBox[{"c", "-", "b"}], ",", 
     RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[30]:=",
 CellID->71156327],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "-", "b", "+", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"a", "-", "c"}]], " ", 
    TemplateBox[{RowBox[{"1", "-", "a"}],RowBox[{"c", "-", "a"}],RowBox[{
        RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}],RowBox[{"1", "-", 
        FractionBox["1", 
         RowBox[{"1", "-", "z"}]]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{377, 57},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[30]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "23", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[31]:=",
 CellID->899498003],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "z"}], ")"}], 
     RowBox[{"-", "a"}]], " ", 
    TemplateBox[{"a",RowBox[{"c", "-", "b"}],"c",RowBox[{"1", "-", 
        FractionBox["1", 
         RowBox[{"1", "-", "z"}]]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{389, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[31]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{
    RowBox[{"c", "-", "a"}], ",", 
    RowBox[{"c", "-", "b"}], ",", 
    RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "24", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"c", "-", "a"}], ",", 
     RowBox[{"c", "-", "b"}], ",", 
     RowBox[{"c", "+", "1", "-", "a", "-", "b"}], ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[32]:=",
 CellID->735406262],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],RowBox[{
       RowBox[{"-", 
         RowBox[{"a"}]}], "-", "b", "+", "c", "+", "1"}],
     RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"b", "-", "c"}]], " ", 
    TemplateBox[{RowBox[{"1", "-", "b"}],RowBox[{"c", "-", "b"}],RowBox[{
        RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}],RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{335, 57},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[32]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", 
    RowBox[{"1", "-", "z"}]}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "24", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", 
     RowBox[{"1", "-", "z"}]}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[33]:=",
 CellID->812767727],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c",RowBox[{"1", "-", "z"}]},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["z", 
     RowBox[{"-", "b"}]], " ", 
    TemplateBox[{"b",RowBox[{"c", "-", "a"}],"c",RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", "z"}], "z"]}]},
     "Hypergeometric2F1"]}]}], TraditionalForm]], "Output",
 ImageSize->{343, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[33]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "94", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[34]:=",
 CellID->1807092891],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      TemplateBox[{"c"},
       "Gamma"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "z"}], ")"}], 
       RowBox[{
        RowBox[{"-", "a"}], "-", "b", "+", "c"}]], " ", 
      TemplateBox[{RowBox[{"a", "+", "b", "-", "c"}]},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "a"}],RowBox[{"c", "-", "b"}],RowBox[{
          RowBox[{"-", "a"}], "-", "b", "+", "c", "+", "1"}],
        RowBox[{"1", "-", "z"}]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{"a"},
       "Gamma"], " ", 
      TemplateBox[{"b"},
       "Gamma"]}]], "+", 
    FractionBox[
     RowBox[{
      TemplateBox[{"c"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{
          RowBox[{"-", "a"}], "-", "b", "+", "c"}]},
       "Gamma"], " ", 
      TemplateBox[{
       "a","b",RowBox[{"a", "+", "b", "-", "c", "+", "1"}],
        RowBox[{"1", "-", "z"}]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{RowBox[{"c", "-", "a"}]},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "b"}]},
       "Gamma"]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{520, 112},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[34]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "95", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[35]:=",
 CellID->434139577],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "z"}], ")"}], 
       RowBox[{"-", "a"}]], " ", 
      TemplateBox[{"c"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"b", "-", "a"}]},
       "Gamma"], " ", 
      TemplateBox[{
       "a",RowBox[{"c", "-", "b"}],RowBox[{"a", "-", "b", "+", "1"}],
        FractionBox["1", 
         RowBox[{"1", "-", "z"}]]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{"b"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "a"}]},
       "Gamma"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "z"}], ")"}], 
       RowBox[{"-", "b"}]], " ", 
      TemplateBox[{"c"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"a", "-", "b"}]},
       "Gamma"], " ", 
      TemplateBox[{"b",RowBox[{"c", "-", "a"}],RowBox[{
          RowBox[{"-", "a"}], "+", "b", "+", "1"}],FractionBox["1", 
         RowBox[{"1", "-", "z"}]]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{"a"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "b"}]},
       "Gamma"]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{509, 128},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[35]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Hypergeometric2F1", "[", 
   RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "==", 
  RowBox[{
   RowBox[{"Kummer", "[", "96", "]"}], "[", 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"a", ",", "b", ",", "c", ",", "z"}], "]"}], "]"}]}]], "Input",
 CellTags->"Kummer",
 CellLabel->"In[36]:=",
 CellID->467969472],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{"a","b","c","z"},
    "Hypergeometric2F1"], "\[LongEqual]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "a"], " ", 
      SuperscriptBox["z", 
       RowBox[{"-", "a"}]], " ", 
      TemplateBox[{"c"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"b", "-", "a"}]},
       "Gamma"], " ", 
      TemplateBox[{
       "a",RowBox[{"a", "-", "c", "+", "1"}],
        RowBox[{"a", "-", "b", "+", "1"}],FractionBox["1", "z"]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{"b"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "a"}]},
       "Gamma"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "b"], " ", 
      SuperscriptBox["z", 
       RowBox[{"-", "b"}]], " ", 
      TemplateBox[{"c"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"a", "-", "b"}]},
       "Gamma"], " ", 
      TemplateBox[{"b",RowBox[{"b", "-", "c", "+", "1"}],RowBox[{
          RowBox[{"-", "a"}], "+", "b", "+", "1"}],FractionBox["1", "z"]},
       "Hypergeometric2F1"]}], 
     RowBox[{
      TemplateBox[{"a"},
       "Gamma"], " ", 
      TemplateBox[{RowBox[{"c", "-", "b"}]},
       "Gamma"]}]]}]}], TraditionalForm]], "Output",
 ImageSize->{515, 128},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"Kummer",
 CellLabel->"Out[36]="]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["HypergeometricAC",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/HypergeometricAC",
  ButtonNote->"HypergeometricAC"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"Kummer",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 8, 18.804850}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "Kummer[i][exp] applies Kummer relation number i (i =1, ... 24, 94,95,96) \
to all Hypergeometric2F1 in exp. i = 94 corresponds to eq. 9.131.2, i = 95 to \
eq. 9.132.1 and i = 96 to eq. 9.132.2 in Gradsteyn & Ryzhik.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "Kummer", "titlemodifier" -> 
    "", "windowtitle" -> "Kummer", "type" -> "Symbol", "uri" -> 
    "FeynCalc/ref/Kummer"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "PrimaryExamplesSection"->{
  Cell[4478, 129, 387, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->671352331]},
 "Kummer"->{
  Cell[5111, 158, 354, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->318247247],
  Cell[5468, 170, 537, 17, 41, "Output",
   CellTags->"Kummer"],
  Cell[6042, 192, 355, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->1547382498],
  Cell[6400, 204, 552, 18, 54, "Output",
   CellTags->"Kummer"],
  Cell[6989, 227, 353, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->87779889],
  Cell[7345, 239, 552, 18, 54, "Output",
   CellTags->"Kummer"],
  Cell[7934, 262, 405, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->196494184],
  Cell[8342, 276, 537, 17, 41, "Output",
   CellTags->"Kummer"],
  Cell[8916, 298, 496, 14, 45, "Input",
   CellTags->"Kummer",
   CellID->793293677],
  Cell[9415, 314, 616, 18, 41, "Output",
   CellTags->"Kummer"],
  Cell[10068, 337, 404, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->39664086],
  Cell[10475, 351, 519, 16, 57, "Output",
   CellTags->"Kummer"],
  Cell[11031, 372, 496, 14, 45, "Input",
   CellTags->"Kummer",
   CellID->326626360],
  Cell[11530, 388, 633, 20, 57, "Output",
   CellTags->"Kummer"],
  Cell[12200, 413, 406, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->2096680953],
  Cell[12609, 427, 519, 16, 57, "Output",
   CellTags->"Kummer"],
  Cell[13165, 448, 497, 14, 45, "Input",
   CellTags->"Kummer",
   CellID->1606284055],
  Cell[13665, 464, 633, 20, 57, "Output",
   CellTags->"Kummer"],
  Cell[14335, 489, 506, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->1495083835],
  Cell[14844, 507, 707, 23, 57, "Output",
   CellTags->"Kummer"],
  Cell[15588, 535, 648, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->2086065203],
  Cell[16239, 557, 808, 25, 99, "Output",
   CellTags->"Kummer"],
  Cell[17084, 587, 505, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->764355789],
  Cell[17592, 605, 679, 22, 57, "Output",
   CellTags->"Kummer"],
  Cell[18308, 632, 648, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->1556461178],
  Cell[18959, 654, 793, 26, 57, "Output",
   CellTags->"Kummer"],
  Cell[19789, 685, 505, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->487619941],
  Cell[20297, 703, 655, 21, 57, "Output",
   CellTags->"Kummer"],
  Cell[20989, 729, 648, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->1099088563],
  Cell[21640, 751, 836, 26, 99, "Output",
   CellTags->"Kummer"],
  Cell[22513, 782, 505, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->598392912],
  Cell[23021, 800, 707, 23, 57, "Output",
   CellTags->"Kummer"],
  Cell[23765, 828, 648, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->1367394877],
  Cell[24416, 850, 851, 24, 99, "Output",
   CellTags->"Kummer"],
  Cell[25304, 879, 506, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->2076771032],
  Cell[25813, 897, 629, 20, 57, "Output",
   CellTags->"Kummer"],
  Cell[26479, 922, 647, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->860912097],
  Cell[27129, 944, 895, 26, 99, "Output",
   CellTags->"Kummer"],
  Cell[28061, 975, 506, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->1768264658],
  Cell[28570, 993, 629, 20, 57, "Output",
   CellTags->"Kummer"],
  Cell[29236, 1018, 648, 20, 45, "Input",
   CellTags->"Kummer",
   CellID->1824141612],
  Cell[29887, 1040, 786, 23, 57, "Output",
   CellTags->"Kummer"],
  Cell[30710, 1068, 549, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->748421164],
  Cell[31262, 1086, 662, 21, 41, "Output",
   CellTags->"Kummer"],
  Cell[31961, 1112, 357, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->1906183256],
  Cell[32321, 1124, 538, 17, 41, "Output",
   CellTags->"Kummer"],
  Cell[32896, 1146, 549, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->151044707],
  Cell[33448, 1164, 718, 22, 54, "Output",
   CellTags->"Kummer"],
  Cell[34203, 1191, 357, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->1217870653],
  Cell[34563, 1203, 527, 17, 54, "Output",
   CellTags->"Kummer"],
  Cell[35127, 1225, 550, 16, 45, "Input",
   CellTags->"Kummer",
   CellID->1953071601],
  Cell[35680, 1243, 718, 22, 54, "Output",
   CellTags->"Kummer"],
  Cell[36435, 1270, 357, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->1999495516],
  Cell[36795, 1282, 527, 17, 54, "Output",
   CellTags->"Kummer"],
  Cell[37359, 1304, 600, 18, 45, "Input",
   CellTags->"Kummer",
   CellID->834381322],
  Cell[37962, 1324, 693, 19, 41, "Output",
   CellTags->"Kummer"],
  Cell[38692, 1348, 408, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->2015364677],
  Cell[39103, 1362, 538, 17, 41, "Output",
   CellTags->"Kummer"],
  Cell[39678, 1384, 599, 18, 45, "Input",
   CellTags->"Kummer",
   CellID->71156327],
  Cell[40280, 1404, 796, 22, 78, "Output",
   CellTags->"Kummer"],
  Cell[41113, 1431, 407, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->899498003],
  Cell[41523, 1445, 578, 18, 57, "Output",
   CellTags->"Kummer"],
  Cell[42138, 1468, 600, 18, 45, "Input",
   CellTags->"Kummer",
   CellID->735406262],
  Cell[42741, 1488, 738, 20, 78, "Output",
   CellTags->"Kummer"],
  Cell[43516, 1513, 407, 12, 45, "Input",
   CellTags->"Kummer",
   CellID->812767727],
  Cell[43926, 1527, 520, 16, 57, "Output",
   CellTags->"Kummer"],
  Cell[44483, 1548, 357, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->1807092891],
  Cell[44843, 1560, 1397, 46, 133, "Output",
   CellTags->"Kummer"],
  Cell[46277, 1611, 356, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->434139577],
  Cell[46636, 1623, 1457, 49, 149, "Output",
   CellTags->"Kummer"],
  Cell[48130, 1677, 356, 10, 45, "Input",
   CellTags->"Kummer",
   CellID->467969472],
  Cell[48489, 1689, 1483, 49, 149, "Output",
   CellTags->"Kummer"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"PrimaryExamplesSection", 52520, 1818},
 {"Kummer", 52653, 1822}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[578, 21, 3010, 74, 53, "AnchorBarGrid",
 CellID->1],
Cell[3591, 97, 283, 11, 45, "ObjectNameGrid"],
Cell[3877, 110, 576, 15, 102, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4478, 129, 387, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->671352331],
Cell[CellGroupData[{
Cell[4890, 148, 196, 6, 26, "ExampleSection",
 CellID->1849867123],
Cell[CellGroupData[{
Cell[5111, 158, 354, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->318247247],
Cell[5468, 170, 537, 17, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6042, 192, 355, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->1547382498],
Cell[6400, 204, 552, 18, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6989, 227, 353, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->87779889],
Cell[7345, 239, 552, 18, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7934, 262, 405, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->196494184],
Cell[8342, 276, 537, 17, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8916, 298, 496, 14, 45, "Input",
 CellTags->"Kummer",
 CellID->793293677],
Cell[9415, 314, 616, 18, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10068, 337, 404, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->39664086],
Cell[10475, 351, 519, 16, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11031, 372, 496, 14, 45, "Input",
 CellTags->"Kummer",
 CellID->326626360],
Cell[11530, 388, 633, 20, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12200, 413, 406, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->2096680953],
Cell[12609, 427, 519, 16, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13165, 448, 497, 14, 45, "Input",
 CellTags->"Kummer",
 CellID->1606284055],
Cell[13665, 464, 633, 20, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14335, 489, 506, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->1495083835],
Cell[14844, 507, 707, 23, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15588, 535, 648, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->2086065203],
Cell[16239, 557, 808, 25, 99, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17084, 587, 505, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->764355789],
Cell[17592, 605, 679, 22, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18308, 632, 648, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->1556461178],
Cell[18959, 654, 793, 26, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19789, 685, 505, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->487619941],
Cell[20297, 703, 655, 21, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20989, 729, 648, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->1099088563],
Cell[21640, 751, 836, 26, 99, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22513, 782, 505, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->598392912],
Cell[23021, 800, 707, 23, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23765, 828, 648, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->1367394877],
Cell[24416, 850, 851, 24, 99, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25304, 879, 506, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->2076771032],
Cell[25813, 897, 629, 20, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26479, 922, 647, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->860912097],
Cell[27129, 944, 895, 26, 99, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28061, 975, 506, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->1768264658],
Cell[28570, 993, 629, 20, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29236, 1018, 648, 20, 45, "Input",
 CellTags->"Kummer",
 CellID->1824141612],
Cell[29887, 1040, 786, 23, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30710, 1068, 549, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->748421164],
Cell[31262, 1086, 662, 21, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31961, 1112, 357, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->1906183256],
Cell[32321, 1124, 538, 17, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32896, 1146, 549, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->151044707],
Cell[33448, 1164, 718, 22, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34203, 1191, 357, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->1217870653],
Cell[34563, 1203, 527, 17, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35127, 1225, 550, 16, 45, "Input",
 CellTags->"Kummer",
 CellID->1953071601],
Cell[35680, 1243, 718, 22, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36435, 1270, 357, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->1999495516],
Cell[36795, 1282, 527, 17, 54, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37359, 1304, 600, 18, 45, "Input",
 CellTags->"Kummer",
 CellID->834381322],
Cell[37962, 1324, 693, 19, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38692, 1348, 408, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->2015364677],
Cell[39103, 1362, 538, 17, 41, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39678, 1384, 599, 18, 45, "Input",
 CellTags->"Kummer",
 CellID->71156327],
Cell[40280, 1404, 796, 22, 78, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41113, 1431, 407, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->899498003],
Cell[41523, 1445, 578, 18, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42138, 1468, 600, 18, 45, "Input",
 CellTags->"Kummer",
 CellID->735406262],
Cell[42741, 1488, 738, 20, 78, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43516, 1513, 407, 12, 45, "Input",
 CellTags->"Kummer",
 CellID->812767727],
Cell[43926, 1527, 520, 16, 57, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44483, 1548, 357, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->1807092891],
Cell[44843, 1560, 1397, 46, 133, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46277, 1611, 356, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->434139577],
Cell[46636, 1623, 1457, 49, 149, "Output",
 CellTags->"Kummer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48130, 1677, 356, 10, 45, "Input",
 CellTags->"Kummer",
 CellID->467969472],
Cell[48489, 1689, 1483, 49, 149, "Output",
 CellTags->"Kummer"]
}, Open  ]]
}, Open  ]],
Cell[49999, 1742, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50067, 1747, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[50340, 1761, 211, 7, 56, "SeeAlso"]
}, Open  ]],
Cell[50566, 1771, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

